10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0 20 DV=PEEK(186):IFDV<8THENDV=8 30 PRINT"[147]":GOSUB60000 40 DIMW$(110),B(15),S$(17),M$(17),T$(17),MC(17),BR(17) 50 UNPACK=13824:HG=13827:SR=52480:SQ=52486:G=49153:IP=13312 52 SYS57812"ANTH 3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493 54 SYS57812"ANTH-FLAG.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493 56 PRINT"[147]":POKE251,64:POKE252,96:POKE253,80:SYSUN 57 TQ=TI 58 POKE252,96:POKE253,80:SYSHG 60 SYS57812"ANTH FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493 80 SYS57812"ANTH C000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493 82 IFTI" 280 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]" 290 RETURN 300 : 310 :REM LOAD PIC/MUS/TXT 320 : 330 POKE214,20:PRINT:PRINTTAB(14)"[155][204]OADING [208]ICTURE[145]" 340 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493 350 PRINTTAB(22)"[205]USIC [145]" 360 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493 370 PRINTTAB(22)"[215]ORDS [145]" 380 FORI=0TO99:W$(I)="":NEXT 390 SYS13312,T$(S),DV 400 H=PEEK(252)*256+PEEK(251) 410 W$(0)=MID$(W$(0),3) 420 PRINTTAB(14)" " 430 RETURN 440 : 450 :REM DISPLAY/PLAY 460 : 470 POKE251,64:POKE252,96:POKE253,76:SYSUN 480 POKE252,96:POKE253,76:SYSHG 490 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1 500 RETURN 510 : 520 :REM TURN OFF PIC/MUS 530 : 540 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0 550 SYSHG 560 RETURN 570 : 580 :REM LOOP 590 : 600 S=1 610 PRINT"[147]":POKE53272,31 620 GOSUB880 622 POKE214,19:PRINT 624 IFF1THENPRINTTAB(4)"SPACE [154] NEXT SONG Q [154] QUIT TO MENU":GOTO628 626 PRINTTAB(12)"SPACE [154] STOP SONG 628 [141]330 630 N[178]0 640 [141]470:[151]53280,BR(S) 650 [158]SQ[171]3," STOPOPEN" 660 [139]MC(S)[167][158]SQ[171]3," OPEN" 670 [129]I[178]0[164]4:[158]SQ,1,20[170]I,[200](SP$,38):[130] 680 [129]I[178]0[164]4 690 [139][195](W$(N[170]I))[179]3[167]710 700 [158]SQ,20[171][181](([195](W$(N[170]I))[173]2)),20[170]I,W$(N[170]I) 710 [130] 720 [158]SQ[171]3,"WAIT" 730 [139][194](49152)[179][177]7[167]A$[178]" ":[137]830 740 JV[178][194](56320):[161]A$:[139]A$[178]""[175](JV[178]127)[167]730 742 [139]F1[167][139]A$[178]"Q"[167]F1[178]0:G[178]0:[141]540:[137]620 750 [139]A$[179][177]""[175](JV[179][177]126)[167]790 760 [139]N[177][178]H[171]5[167]730 770 N[178]N[170]5 780 [137]660 790 [139]A$[179][177]""[175](JV[179][177]125)[167]830 800 [139]N[179]2[167]730 810 N[178]N[171]5 820 [137]660 830 [139]A$[178]" "[176]JV[179]112[167][141]540:S[178](S[170]1)[175]15:[137]620 840 [137]730 850 : 860 :[143] MENU SCREEN 870 : 880 [151]53281,0:[151]53280,0 882 [139]S[178]0[167]S[178]1:F1[178]0:[137]1050 890 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]1)[167]1050 900 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]0)[167]1050 910 G[178]1:[153]"LOAD":X[178]2:XX[178]35:Y[178]0:YY[178]21:[141]250 920 [153]"FOR"[163]10)"ORTANTAN^ ORTANTAN^ 930 PRINTTAB(10)"[171][192][192][179][158]NTHEMS AND[129] [171][192][179][158]LAGS 940 [153][163]10)"FOREXP /TANTANTANTANTANTAN TANEXP 950 PRINTTAB(13)"[145][192][192][192][192][174] [176] 960 [153][163]13)"SYSOF THEFOR (null)OR^(null)SYSORLD 970 PRINTTAB(13)"[129] [173][189][173][189] 972 [153]"VERIFY(null)CLOSE(null)CLOSE"[163]33)"WAITVERIFY(null)CLOSE(null)CLOSE" 974 [153]"VERIFY(null)OPENCLOSELOGCLOSE"[163]33)"WAITVERIFY(null)CLOSELOGCLOSE" 976 [153]"VERIFY(null)"[163]33)"(null)" 978 [153]"VERIFY(null)"[163]33)"(null)" 980 [151]214,8:[153] 990 [129]I[178]0[164]7:[153][163]6)""[199](I[170]65); 1000 [153][163]9)"CONT"[200](S$(I),[195](S$(I))[171]4); 1010 [153][163]22)""[199](I[170]73); 1020 [153][163]25)"CONT"[200](S$(I[170]8),[195](S$(I[170]8))[171]4):[130] 1030 [153][163]12)"R CONT'ROUND THE WORLD 1040 PRINTTAB(12)"Q [154]QUIT 1050 [139]F1[167][161]A$:[139]A$[178]""[167][142] 1052 [151]214,19:[153]:[153]" " 1060 [161]A$:[139]A$[178]""[167]1060 1070 [139]A$[179][177]"R"[167]1100 1080 F1[178]1:S[178]0 1090 [142] 1100 [139]A$[178]"Q"[167][141]39900:[137]1040 1110 [139]A$[179]"A"[176]A$[177]"P"[167]1060 1120 S[178][198](A$)[171]65:F1[178]0 1130 [142] 10000 D[178][194](186):N$[178]"B.ANTH-FLAG VIII":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128] 39900 [151]214,18:[153]:[153][163]8)"CONTQUIT? ARE YOU SURE? (YCONT/NCONT)ON" 39910 [161]A$:[139]A$[178]""[167]39910 39920 [139]A$[178]"Y"[167]40000 39930 [153][163]8)"CONT ON" 39940 [142] 40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130] 40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030 40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A 40030 A$[178]"PRESENTER":[141]40040:A$[178]"HELLO CONNECT" 40040 [129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130] 40050 [160]2:[159]2,I,2:[160]2:[139]ST[167]40070 40060 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40090 40070 [130]:[139]A$[178]"PRESENTER"[167][142] 40080 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128] 40090 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23 40100 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I 40110 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128] 60000 [153]"LOAD":Z$[178]" PRINT# ":[151]214,10:[153] 60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]9:[153]Z$:[130] 60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#" 60030 Z$(0)[178]"ATN(null)(null)LEFT$VAL(null)(null) ATN(null)STR$ ASC(null)ATNCHR$(null) (null)ASC (null)LEFT$VAL (null)(null)(null)(null)STR$" 60032 Z$(1)[178]"BY (null)ARQUIS, LEFT$ARNED AND (null)UCKER" 60040 Z$(2)[178]"(LEN) 1996 BY MID$ & ASC (null)UBLISHING, RIGHT$NC. 60050 Z$(4)="[212]HIS PROGRAM IS NOT SHAREWARE 60070 Z$(5)[178]"OR IN THE PUBLIC DOMAIN." 60080 Z$(7)[178]"1-800-594-3370 OR 1-318-221-8718" 60090 [151]214,12:[153] 60100 [129]I[178]0[164]7:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]